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mis docvjttent is 'i fcriet teut ccmpiete description cf a 
ne.vi lanquage invented end ifflplerrented fcv tbe authors. This 
lenGuage is intendea to ce a suitacle vehicle for T^rocrenis? 
whim %oulo otherwise be ii»;'ritten in siachine Xanquaqe for 
reae.ons of efficiency or f lexifcility. It ia tart cf a 
gysten- which eXso includes a cowciier capafcla of producinc 
reasonafclv efficient object code and a runtime which 
in"iclei':'ents the input-output and strxnQ-benaiing featuras ot 
the lannug^e as welJ, as a feiriy exsteorate sstoraoe 
allocator, ihe systere autcroaticallv takes care of paoino 
arra'vs and tlocKS froff the drum if they nave eean so 

\A *»' \wi 4i *^»^ li.^ 'W "i-^ • 



l( gsirl program consists of ataifiisejats 8epar?^ted . fcy 
se,i:TiicciQns, CerriaCfe returns anc fclanxs have no 
siqniiicance in the language except that they? 

1, Act as wcrd (and cofninent) delirciters, 

2, ArQ ta'ken literally in string and character 
consrent'?, 

'werninyj Tnis is one of the many features c£ the ianguac^e 
which can cause trouble for the unwarv rrogrRJooiter, it is 
quitd rogsicle to ■write two staterotnt® vithout thp* 
secaratinp seiBicclon and wine ur witn somethinc! v^^hlch i? 
leqeX,f cut not at all what was inten<3ed. It Is a general 
aharacteri»5tic cf QSPl that it is very cerrr-issivei rany 
things ere lacaX which are not at all reesonefcle, 

h ststerflent S'iay toe; 

1, I declaration, 

2, A listing control statenent. 

3, An end statement, 

4, A function oefmiticn. 



L 
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&, h cmment, which is a Urse seqlnninq 
(after a seciicolon or another cowment) 
with an asterisk ("*") and endlna with a 
saxxiaafi xfituxQ (net "i"), 

I'iost statements are expressions, sc we will discuss 
trier-: first. 



{?^ V: y 



c 
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hr> expresalcn is wade uc of oiceraricis senarated by 
operators. Parentheses are allowed to env reasonatele derth. 
The ccerators , axe arranged in a hierarchy of bindine 
stre.riQtn or precedence. Those at the top of ths followinc 
list are ex.ecuted latest, so that ss+fc*c Is a+()o*c). 

& denotes sucessive evaluation. The value of the 
result is tha value of the last excrassion in 
the string. Thus 

or wore rlausifcly 

F ( A , B ) ^ G ( L , Y ) f 

which causes isoth functicns to te celled in the 
order in which they are written, 

vumt is. similar to s., cut causes the fcllowina 
exprsssior to Be evaluated first, it nvav not be 
iteratec. Thus 

F (X,Y) WhH:RE M>14f 



taKea the form 

<exi;ression> FOP <fcr clau®e>f 
or 

<excression> WHILE <exB:ression>f 

The expression is evaluated reteatecUy under 
ecntrol cf the for clause (see fcelow for the 
syntisx cf this construct). The final valy© ot 
the expression is diiscarcJed, end the value of 
en expression involving POR or i^HILE is 
undefined, ct course, something like 

(AUJUJ]*-0 FCS Isl TO K FCP J*! TO t^t 

Is leqal, 

IF taxes the form 
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<expression> IF <exicresslon> ELSE 
<exe-ression>f . 

The geccnd excression is evsluattd, if it is 
non-zercf the first expression is evaiuated. 
Its value fcecoines the value qf the v^hole thing r 
and the third expression (which, by the way, 
Tp.ay contain another IP) is skitped. Otherwise 
the first expression is shipped, and the third 
Is evslt'Btea, Thus 

X*-4 IF Y»6 'SLSE )i*-5 IF'Y>bC EL3E X«-6f 

If the tinal £L3E is omitted, will bs 
suppXiacu 

♦" is the assignment ocerator, it ranks on the 
saSiie level as '," for its left-hand operand, 
anc3 lust celow IF for its iright-hand one. The 
riQht-hand operand xs evalueted, and its value 
becomes the vaxue of the ' left-hand one. The 
whole expression is then treated as though onlv 
the left-hand side had ceen written. 

Oh Is the logical cx» It eitner operand is a 

releticn (or an. extsression ccntaining loqical 
operator's oonnectina at least ona relation), 
then the result is or 1 dependina on whether 
both operemSs are true (non-zerol, it both 
operands have oroinary values, these values are 
corfifcined with the machine's m:r«? instruction. 
Thus 

A<4 OK B<5 

is true if eitner reletion holds t 

A<4 OR X+1 

in true if 'h<4 or if x+l is not zero, in fcoth 
these cases, the second operand is not 
evaluated it the firat one is true. But 

riX,Y) OR Z 

is the 2 4-fcit logical Qx, c£ 2 ana the value of 
the function call. The operands of an t:m ers 
n€»ver re«crcered. 
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AMo is the. logical aod. Xt is exactly the sa©e 
as OS m .the way It treats its operands, 
fiiffering only in tha result, 
ECh always converts it® opssranos to values and 
usss the EOF instruction. 

NCT is the logical cat. If its single operand is a 

relation (see the aiscussion of OS) its value 
is inverted (0 teecomes l, i fcecom,e!s 0), 
otft,erwise, a 24-.bit conicleaient is taken (^^'ith 



?Ci? a-u. 



«%e the relations, each one evaluates it,s 
operands and then r,ar£orriis the inaicatea test. 
For these and all trie arithmetic oterations, 
tha oterands way be re-ordered if, it auits the 
coit.piler's convenience, 

WOB A i^OD e is the reB^JSinder o£ h/B, 

+ - mttoTW 24--k:it integer addition or subtraction, 

• / LEH PSH LCY SCV 

"*'" and ■ "/" nerfoxrrs 24-fcit inteaer 
muititlicaticn and division. ' no test is niade 
for overflow on division. 

The shift oicerations shift the first ocer-and 
the nuBfcer ot v;;laces indiceted fey the second 
operand, vacated bits are reciaced fcy 3:€ros, 
The cycle operators do sn end-arouno shift, 

+ - (3C10 HETuSf* SRETUHN DO lunary operators) 

The unary " + " and "-" do the civlous thinci, DC) 
is a noise word ancs is ianoreo, xt way ba 
convenient for constructions such as tniss 

DC F!X,y) f 

'1CT0 transfers tc the address ^hich is. the 
value of its operand (see the discussion of 
lately fceio^) . 

P&TURH enc SKETURN evaluate their operand(f»)# 
o£ . which there .say tee at west 3, They leave 
the values in the A* 9, ana x registers 
respectively and return through the return link 
of tne fflost recently defined function (see 
^- ■: ■ beiow) . If this is not desired, the BETURl^ mav 

i^.y .^^e aiodiiiad ty following it with FRa,M 

<expressicn>. in this case the return is to 
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the aciaress which is i + the value of the 

axpressior. Tnus 

SETUKN x+Y fmn fciai 

Tha prcgramrtier snoula ce sur® .th«t fcnl Ha.«« a 
propar return address in it, since the coKDiier 
Will net checK this. The operand ot Rstukn mav 
fce Offdtted, PETURw is a norrnal return, or a 
no-skir. return (failure return) froRi fiunctions 
cslled with a failure location (see function 
calls fceic^), SSETUnn is a skip return, or a 
ncrEiisX return ttom functions celleca with a 
tsilure location , 

(Suncticn cails) , 

The arguments of the function are enclosea in 
the parentheses, senarated t^ coroir.as. Thus 

F(X,YtS,Z) . 

?-?cte that the function may fce specified fcv an 
©X'crasslcni tnus 

(A + B) (i4,y + 5,2<) 

is perfectly legal, it causes control to ce 
transferred to the Accation which is the valuta 
of the. expression k*B i^ith the acecified 
argujnents, M&max&, Tha i^aiufia of the first 
thr^e function araumants are transmitted in the 
^'» B and X registers respectively. The 
adxiresses of the values of further , arguments 
are put into m? instructions ^hich precede tne 
function call. Ihe function is calleo with a 
POt which leaves the link in and transfers to 
tne location addressed by it. Thus 

F {A,Y+S,Z,P+i,Q) 

compiles 

LD.A Pj ADD "Ij at A Tj + li L.CA Yf ADD a5» CABj 
LDi% A I LDX 2f NOF Qf NOP TJ + 1» CALL* 

in adaiticn to or .laore argvaiiients, s function 
call inay also have a iailuxje iiacatian. This 
corresponds to a no s'kic re-turn (K-ETUt-lN 
operation) froio a, function which also has a 
sKii: return (SSETUHS'J operation). The failure 
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location coroes after the arguroents and is 
preceded fcy a colon, thuss 

The failure location may fce either a label, in 
vhxch cese control will go there in case of 
failure, cr BETUSN or SRETUSN possisiy foUo^^ed 
by a sxnal£ expression, wnich will fce executea 
in case of failure, 'k function normal Iv 
.returns just one vaiu©, which is passtd in the 
A"register. ncwever, it s^ay return no values, 
or up tc threes additional values are cut in 
t.ne a ano X registers. The first value is 
always the one used for further commutation 
{e,c, in situations like F(X)+1), fcut any 
sufcset of the values can tee saved fcy -cutting a 
&a..u& list after the failure location, precede'^ 
by another colon, thuas FU,Y!M!Vl,V2(rV3) or 
ever F (P#F: ;X, *jf , 2) if there is no failure 
location* 'Ih*?! save list must fce a list of 
simple vatisicles. It is all ri<;?ht tc hsvs a 
ccfflffa with no names the corresponding return 
value just gats lost, see helow for a 
discussion of function declarations, wota that 
this calling convention is act the sewe as 
PC.b*'rRaN 's. In particular, in the efcove exairscle 
nothinq tha function does ft^ithin reason) can 
etreot the value of A or 2. It is possifcle to 
transmit the adcixe3s of a or 2 with the 
reference oper'Stor, however isee fcelov.'), 

(tailing), I'he , must fce fcllcwed fcy e fieia 
narne (see discussion of declarations below). 
The resulting ofcject refer?! tc the specified 
field relative to the address: which is th« 
value ct the first Oiseranci, Thu^, if we hava 

DECLii^S PIELP Ml) , E(2) ? 

and it X contains 143, then l,h xafers to 
location 144, X,8 to 145, X.&.B to 2 + the 
contents of locetion 144, h tailed operand way 
appear on either side of an assianwent, cf the 
discussion of PA3E.D decleratlon for the 
treatment of caqed .clocks. 
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(fcln<ary, sane precsaence as ,), They, aonstryct 
T!?j? ,xs eliTiost equivalent tc iT.F.^ I.e., It 
reters tc the cits of T iuat the word acdressea 
by T) selected ey f. liie word c^isplacement of 
F IS ignored, and f must not cress a word 
boundary. 



i ? (-teference 
operator 
address li 
an asaiCjn 
veluQ, he 
of the r 
it does nc 
operator 
this value 
equivalent 
an addres 

-*- * * — ■■ f(L JL ^' W w h-- 

the presen 
ccntsnts c 



and indirection! , 
"®" takes an operand 
,e. accaptatele on th 
inent) and returns thl 
te that this implies 
eference ocerator is 
t maKe any sense) , 
»if« evaluates its ope 
as ,8n address. The 

to no or-aration, ex 
a IS comssiled with 
it, and will therefor 
ce ot indirect or Ind 
f aaarass, if ws hav 



The r^fi^rence 
which n>ust be an 
e left side of 
s adoress as j,.ts 
t n s t i 1 6 X' 3i t i o n 
llleqal (in fact 
The indirection 
rand and returns 
sequence "s$" is 
cept that "$" on 
the if:achin«5.'s 
e be affected toy 
ex fc'its in the 
e written 



CECLARE FIELD S(O) p 

then <E>,S is eoulvalent 
exception noted gfcove.' 



to $<E>, with the 



n 



(sufcscripting) . A siaoifi eufcscrirt Is allowed. 
As viith function calls* the cfc:jeGt fcelnq 
.subscripted aav te an arfcitrary expression. If 
it has te&n aeclared as sn array, the coffcilet 
Xcecis the autsarxct into the x-r«g and coKiclXes 
an indirect reference through the array na?fe. 
I.e., it expects the array naite to contain the 
base address of the array with index bit on. 
For any other expression tne "[3" oceretor is 
eculvalent to "$" + ",". 'im^ 



U-E) it 



D.U1 



cortipilas as 

IDA Cf K«(- D? STi 

LDA 0,2f ADD =1? 



h LDA hi SUB 



B| 



^DD T» Xtht 
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Tne primaries fci: expressions way fce nu.-iifcers, naj'es, 
strln?! con-st?intS(i or cnerscter conitants. 



,A nuRiCer roey be an inte^jer constant or a reel constent, 
A,n integer constant is e strina of digits r posslicly roilcwec* 
tev B ot D, possifclv followed by a sinale-dloit scale factor, 
B Kci'k'es. the nurr.fcer octal? if It is absent, deciSBal i.s 
as8u,!?ied. Thus lOOD « 1D2 « 144B a 1B2 + 44B » 100, A real 
constant is of the forro xxx.xxxExxx, Either the dot or the 
g rauist ce present, it the dot is present, there must fce 
seme oiqits i:£XCZ£ itj i£ the S; is s;resentf there roust fce 
soiae Qi'-gita after it. For further details^ consult the 
description in S«2l of tne SIC sysccp, which ie usees te 
oonvert real constants to binary form. 



h narC'S is a s-trinq of any nuin,cer of letters and dipits 
teeqinninct v,.ith a letter. Only toe first six characters of 
the naroe are sicjnificant, A naie must fce declareci. (sets 
&elow)« All na,»es except parameters and fields are treated 
in exactly the sas^e way when tney occur in expressions 
(except for sutscripting) , g,Q, a s-trina name refers to the 
pointer to the string descriptor which is the value ot the 
naiiie:, Ihus, if b is a, string 

siiTipiy stores ft + 1 into Sj this is srofcafcly not reesonafcle. 
Functions are crovided to convert between strings and 
numfcers. 



There ere accut 80 reserved ■words (see Acpendix 8) 
whicn P-ay not fce used na nances, in addition, about, 20 
locations in the runtirae (ses Appendix C) are predeclareo as 
external? attetncts tc declare theff for other purposes will 

X '^^ X * f 



|i character constant has the form 



v_. 
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and it: 
pseuac 
follow 



The ah 

•I"' 1*A JL jJIv '■'■.if! *-r* 

have Si 



eo 

2, 
3. 

or 



&t£lnU'-Q&GStants 



CSQUd 

strin 
point 
apcea 
to wn 
point 
otner 
the c 
strin 



9 n 

ich 
er 

c 
on 

CI w 



h V 

field na 
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'<three or fewer p8eudo-characters> ' 



bar a 
fcy 
An 

Xh 

tr 

ft 

le 

cs 
acte 
out 
e th 



Qter 

one 

othe 

■rp, o 

rf* Kf \irt 

unca 
lett 
tter 
eudo 
rs a 
wit 
^n 3 



is 

I "& 

ingl 
octa 
ted 
er, 

+ 
"cha 

n bl 



\<hsrever 

any c 

ne £allo 

" or a " 

e "&" or 

1 ciigits 

to 8 fcit 

Xfie hSQ 

looa 

racter. 

ioiit- jus 

Bn'^B (0) 

udo-char 
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a constant in usea, a 
haracter ether than "&", or "fx" 
^■v'incs: 

, The two are eaviivalent 

" ' " in the constant, 

, The numfcer thus defined # 

s, counts as one cnarecter, 

n (internal) code for the 

is the value of the 

tified in .the constant, which is 
on tha left, j,t is en error to 
acters in the constant. 



strinci constant nas the form "<anv nui^^fcer of 
haracters>", it is legal in any context in wnich a 
nme. is leoal. A descriptor will fee created which 
to the constant string, if the string conetent 
alone iwri-eciiatelv after a left arrcWf the variP^fcle 
the constant ig fcsing assigned is essufned to hold s 
to an alreacy existine string descriotorj in all 
BS^B, space for a descriptor %ill fce allocated for 
tant fcy the cotr^piier. in any case, writing into the 
ill alter the constant. 



aricty at operations 
mes into consti^ntss 



are crovideci for convertinc 



PCexcression) 
statements 



has tha value of T after the 



T^Oi T^F+'expressionj 



have fcee-n exacu 


ccundarias. 


iha function FS 


tit position 


Ttust not cross 


F&HIFT ia a con 


The function p« 


which has ona 


the fi«?l<a as it 


f {"D , ¥ must 


« Sielo name F 


than 


F{ 



ted, F must not cross word 

HlFTcr) has 23"the rightrccst 
occupied &y f as its value, F 
word fcoundaries. The value of 
stant, 

kSK{F) has as value a constant 
fcits in ccsiticns 'selceoted bv 
s value. It is ecuivalent to 
not cross woro fcoundarie®, 
apcedi-ing in any ccntaxt other 
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IS equivalent to a constant w.DOse valve is 
the vicrd disclacersent cf the fleia. 



Any expression involving operators ef precedence hioher 
than FCR end constant ODSrands will be evaluated fcy the 
coropilex' vieldlna a result which fcehavse exactly like « 
constant. 



(. ) 



QtsPl fianua:! Faee 12 



Varlatelts are declared with DECLARE or FUNCIIOK 
^tataisents or ty apcearlnq as lafcel^, 'I'm syntax of 

DECLARE [fIXED or Pi\QED] [iJ^TEaEP or M.hh or 
STHIInG] Ui^RA^] tH'XTEKKAL or ENTPY or 
LOCAL] <r)am«Ust>f:v,. • 

Tl*if Stuff after the DE^OLARE raay fce repeated as psany ti:f«es as 
desirfcd, cnce FIXED, PAGKD cr AH8AY has iseen usee it 
retTieins in effect fcr the reiaainder ot the current DECLARE 
statament, li^TEGEK Is as,«9urp,ed if it is oaiittedir but once 
STHIKG nas teen used it remains in effect until INTE6EF 
appears aq^iin. Each n*arin8 in the naEiellst may toe preceded fey 
"^5" (whicn r.-axes It an entryi or fcy "*" (which ir.a'kes it 
externai, i.a, prevents storage fr.pni being essicined £or it). 
If FIXEL anc askaV are eoth tlsvisresent, a name may te 
followec ty an expression in parentheses (or cracKet$), 



DECLARE .i^IXED AR.RAY A[12J, B[X*2 + 141» 

The expression (vihich muBt fc« a constent) will fce evalustea 
and tnat'ineny cells assigned for the array at coniniie tirte. 
The case edaress cf tha reqion assignee, with the index fc:lt 
set, 'Will 'r,e stcreci in the naie. If a na^se is declerecs 
AHHAV without any storage toeing assignea, the systaiTs vill 
assume that ite value is a pointer to an »irray with the 
index Kit seat, 
I.e,, it will ccKtile 

LDX If LDA* h; STA B 
for t^*-.4[lj. 

ix ample! 



;XTERis.,AL G3, G4, ) 



ARRAY .&(X + ¥[4]/f, li^iTSGEP C(lC)j 
o.eclares t-^o scalar intsriers, one integer array ,„ which vjill 
fce qssi«ned 10 locations vinen tha declaration is executed, 
two local scalar strinqvS (D ancS Q2) , one local strino a,rray 
whicn Will t€ asg?ignea X+Yt4j locations t^hen the declaration 
is executed, one scalar strina which is an entry (Gl), and 
two scalar strings ^'hxch are essuitied to fce defined elsewhere 
(63 and G4j , 






c 



c 
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i^ nawa or an array iT>a,y be aeclarea taoed cv puttina rhf^ 
word PAGED in frcnt of its deciaraticn. This attribute, 
once raentionedf applies to all the naises aeclared foUov.'inc 
it m the saKie stateraent, if an array is decXarea p^ged 
inat. a FIXtit array, ot course), all references to it will 
be -mcifi tc the drum. Correct access to the array will ee 
ofcteined cnly if it is sut:scri!:;ted in the usual wayt Ml]. 
It is CCA true that (h*l) U) is equivalent to ,A[I + 13, for 
exapole, ■^la is the case for core errays. 

If a na'fie declared s;aged is net an err-^v, the cnly 
effect is that ^'hen it is taileo the svstera will a-ssume it 
contains e, crura • eddrsss, such an address can orily fee 
ecrrectly efctained with Pmm -(see fcelcw), . It i? thp 
V-xoaimmeT'B resccnsifcility to see that! 

a. It does contain a druw address qenerated with 

fc. The field naisie used tor tailina has a word 
Qisplacement l(?ss than the block size 
sracitied by tne p«ake;. Unpredictable errors 
«iU occur if this rule is not ofceerved, 
Declaritions of; fields ara not affected fcy p|*tRD, 
indirection ($) and sufcscrioting {[]) will ^ork prcterly on 
a PAGED pointer, Arithiret^ may be done on PAGED pointers 
in the usual fashion^ provided the result is ^'lithin a block 
aUoceted cy e single call to PfifiKE. thus aftar 

DECLARE PliGED P| FIELD FC (0) ,FX U ) * F2 ( 3) » 

the. stateroents 

A«"P,F1; A«^' (F + l) ,FOj A«-«P+1)10]? 
heve the ssEe effectr c;ut 

A«-P.P2) /'♦•(P + 21 [0] ? 

are all erroneous, since only two words were allocated in 
the fclocV ccinted to ty P. 



■When s;5 name is declared tc ce e string, a single 
storacip, location is reserved for -It unless FIXED has keen 
usee.!, Strinqs are specif lea, however ? :oy four-v^ord 
descriptors. ihe address of such a descriptor roust be put 
into tne string variatle befor it is used in any strinc 
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operation. For ncn-FIX.E0 strings, this Is usually dene with 
tha fcETUF function, tossifciy precececi t;y a make? 
alternatively, the address of a a*3scrlptor ofcteined m seme 
other «ay cen fce used. If a strinq variefcle ia not croK-erl(u)_..^ 
initieli^ed, the conseouences of using it any strxnc ' 
oper-iticn are liJ<€;ly to ce serious. 

If a string declaration is precedeci bv FIXED, the- 
£ouX"«¥crd osscriptor is assigned fcy the compiler and its 
address is the initial value at the strxng, ^ if a FIXfiD 
ST'RISG If followed fcv a parenthesized expression, that toe,r\y 
characters ere allccated for the string end the descrirtor 
is initiallisec to I'loint to the area thus allocated, 
Exarncie; 

DECLAFE FIXED 3TB INg S,T, U (S) , V j 240) » 

allocates string descriptors for 8 amd Ts they wust be set 
up to cclnt to strings sy SETUP, It alsc allocates; 5 
characters for u and 240 for v end sets up the desoriptcrs 

properly. 



l\n integer way fce ,iai±laii2jed fcy following its raae 
with "*" <con8t6nt> or "♦•" <narce>. Thus, 

DECLARE Ji<-3,B«-i4,C«-,af 

fia'kpg 3 the initisl value of a, 14 the initial value of B, 
Qt oourse, any expxession which can fee evaluated fcy the 
coraciler ?r-ay fce used as a constant, this is aai the sarce a.? 
a I'AFAfiFTgp declaration (see below). The use of this 
construct is not recoffiaended if the prograiT! changes the 
values ot the variables, since the nroctrara wust then tee 
relotacieo tn order to tee restarted, 

is. FIX;SD AKKJsY can fce initialized in the sawe.ways 

DH.GLAI'E FIXED ARBAY A [ 10 J 4-i , 3, 5 , 7, 11 , 13 f 

The tirst six elements of A are mitialzed as indicateil. 
The ren-eininq four elements are initialized tc 0, 

h fixed string or a fixea string axray .fflav fc^' 
initialissecS in the same way, but the initiel values rriust te 
5trinQ constants. ^jarninqj viriting into initialized 
strings will aestroy the contents. 
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If any decisration causes gpace tc be allocated at the 
point -in th*5 proaram inhere the declaration occurs, a fcrench 
over it is coHipiled, Declarations niey therefore be freely 
interrciateo in the proarara. 



Anctner fcira ot DKCLAlf^E is tha fcUowingt 

dtolAWE nSLD <naKa> 

(<constant> C {<constant>,<constant>3 ) 

whicn defines a iield. Lets of fields can te aefined if 
desired, ihe first constant specifies the worS displacen.ent 
o£ the tieXdi the other tv»'0 the kit postions in the word. 
Bit positions can take on values fcetv?een and 47, h £ield 
may scan two wcrasi cut it iiiay not fce more than 24 tits 
lono. tnus? 

DECLARE FIELD A, (0 ) ,.B { 1) ,C (2) ,C1 ( 2 : 0, 5) , 

defines -f^ijc fie las. The last three might fce thou<3ht of as 
susfcielos ot c, tut they do not have tc fee vised in this vsy. 
It P were a ccinter to a three-word data object, £or 
exanvpie, then F.XYZ would refer to the last 12 fcits of tne 
third ■•^ord of the object. Such cfciects cen be created frorr- 
nowhere ■ v^Mtn the MAKE function or, o£ course, may fce 
allocated fcv the rrograrriwer. 

itarhBB declared as FIE>LD ar® output to DDT witn their 

viQXQ ciisplacesKents as value, if they gpcser not following e 

".", they are tieatea a.s oonstants eoual to their v)crc 
dlst'laceitients. Thus, 

${FTR + B) eouiv $(PTJ*+1) equiv P'lR.B , 

k full-woro field way be aeclare .SEAL or FJiOED, This 
paeans that whenever it is used tor tailing, the rssyltino 
quantity is considered peal or PAGED resc'ectiveXy, 



Ibe declaretion 
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makes the neroes C1,C2,C3 aauivalent in all u&us to the 
constants i, 2,3 for the rest of the prcoram. Any constant 
rnav appear on the right c£ the "♦•", Note aaain that anv 
constant expression may be used where a constant i? 
requiieo. Parameters, unlike other namasa, rnav fc*> 



a he aeolaraticn 

is legal cnlv if t has alreaay Jseen aeclared as a fixed 
errev. It causes g to fce assigned tc the same location as 
1%, i? to tne B&w.e location as T(3], 

h function is detined by 

fK£AL] tUhCTION or E^mm [$} naiiseUrqUst) J 

It the word m/hl appears, the function is assunieci to return 
a ticatino point value » otherwise, it As assuffied to return 
inteqer values, if anv. If a a precedes the function neffie, 
the narue .1,3 n^ece an entry. Except when con-piLlnq unoer 
HCLIST lOQhl (oescrifceo fceiow), there is no difference 
fcetveen FUj^anCK and ENTRY, Each arguruent in the aralist 
can ce preceded by lut&Gm, feTRING or AR!?J\Y and is declared 
automatically, IHTEQER is assumed unless otnerv,'ise 
specified, if hh'.PAY is specitied, the index bit will fce 
mergeo into the velue sucplied, A naree can fce redeclared in 
a tunction aetinition (this is ilieqal in anv other 
context), hut only if the redeclaration exactly fi^atches anv 
previous declaretion. The system creates a return link tev 
Ptetixinq th« function nawe with X, The steteiaent 

FUfcCTlClM <F^AM,e>(A, AR«AY B, STFING C5 1 

would copicile 

Sih AyCBAfMKG b2B7?STA BjSTX CjLI:^X OjSiX 

It aaoitlcnel arguments inTmtB D,fi wert supplied, the cede 
LCA* -1,2; STA Df LDA* -2,2$ Blk fc» 
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'ins function name itself is also declared by this 
stateii^snt, a storage location is reservtd for it, and thp 
aadresa ot the tiist word of the function (STA * aKcva) ip 
put irtc tols aodress. 

The UrVK Key fee scecified expUcitlv, if. desired, as 

£0ll0V*3J 

FU:^CTICK F(g,*^l , LINK Wf 



.», function :way fc^e declared recursive jcy 

[KJ^AL] RECUi^SIVe; FUNCTION er El^TRY [S] FU, 

E) , SAVE E» 

The affect V'lU fce that whenever the function is called the 
link ana the current values c£ a,b anc E will fce saved, 
when ti)e liunction returns (vi© a RSTUR,!s cr SRETUfts with nc 
FfcOK acdifier ana only one value returne-a), the saver: 
variable values are restored, 

B^Bce for saving th« variables .is ofctained fcy callina 

the i-uncticn in the reserved location PECSTk, This cell if, 

initisllzed to fce a call to HAKE, fcut the user may surplv 
his own function. The call 

TOPhST «- gECSTK(N) 

where H contains the number of words reguireci and the 
t'uncticn returns the address of the first vicxd, 

t-tace is released fcv 

DC FECUWSCTOFi^ST) j 

and -^■fcCUN.ai is initialized to FREE, 

the cell TQkiFST, Which is also reserved (i.e. fcuilt 
into the rurtinei contains the address of the current tor ot 
the recursion stacK, Its ola value is saved in the secona 
word ct the stack entry. 

It a function ceil appears in a compiled exi;:ression, it is 
net safe tc re-execute the expression Inside the function, 
sinca the expression may use temporary Iccations which are 
ac± saved ^hen tne function is called, Bevare, 
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A ,sv»col Is decla,re<3 as a label fcy writlna It at tne 
fceainninq of: a statement follcwed by a colon. It is treetea 
exactly like a function nafnes a storage location is reserved 
for it anc5 initialized to the address ot the first 
instruction of tne stateraentt Any statement can be labeled, 
A, lacel is assumed to be an integer scalar. If we heve 
a:.,, f GCTD A? this will corapile 

:A BSE Oi ...JBIRU* hf ,,,fk ZPC SA'I 

so tnat the right thing happens. If the syn.bol is creceded 
,by B ?, the lafcel is iiiade an entry, 

Ihese conventions for 'arrays, strines end labels p-aKe 
it veiv easy tor thero to be transKittea as ercius^ssnts. 
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Pisal numbers occupy two words of storage rather than 
one ana therefore have a soaewhat ancffialous status in gfcPL, 
which cthervise taxes the position that any Kind: of auantlty 
only occupies a sinqle word ixr.tegats, strings, labels, 
functions, and arravs all have this property), ^e define a 
xfial isxexand as a real neroe (cossifcly sufcacrinted it an 
array), a real constant, a real function, a real expression, 
or an ex-cr«8s.sicn tailed ty a real field, a raal exrression 
may «e forced in the £ol lowing wayas 

1, 3y ccmfcining two real ocerands %'ith any of 
the follcwing binary operatorsi +, -, KCD, *» 
/, It any cf these operators is applied to a 
real operand and an integer constant, it will 
convert the constant to a real nunifcer. A real 
operand and any other Kind of integer opernnd 
will produce an arror. 

2, By unery + or -• applied to e real operand. 

3, 8y the construct <real cperanc3> IF <inteC(er 
e>!!:iession> {ELSE <real cperand>l, 

in aaditicn, t'wc real operanas may fce coTicered fcy anv of the 
reletionai operators (», #, >, <, >*, <»), The test is nade 
cy ooing a flcetina subtraction and testing the result 
against zeioj fceware of round-offi error in testmq for 
eouellty. /ft.lsc, a real operand may appear in a RFfURK or 
ShETWH prcvideo it is the only axsuient of the operation, 
Thera is no lestriction on mixing real and non-real 
jsrguffisnts c& functions » however, the .tyres of the gctussl 
arguments in a call must correspond to those in the function 
definition. The ccmciler does not check this, and an error 
will trcbafcly cause cha,os at run tiipe, 

various special functions are availatele tor doing the 
same things to real numbers that one can do to integers, 
Bjn and RCUT provide tloating point input/output » cSh ana 
CRS provide conversion between reals and strings ? FIX and 
FLOAT convert fcetween reals end integers. These are all 
discussed in detail in the later sections on scecia.l 
tuncticns. There is a library of ffiatheHsatical routines W'ith 
QSPL-coiTipatiPle calling sequences avails)?!©, including £-in, 
CCS, 'IhB, ATAK, EXP, LOG, LCGIO, and randoi) nuiffcer 
generation I this is described in a separate doaument. 
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Ihe ccnstructicn 



It <excression> D0» 



gLSEIf <expresBiQn> DO? (0 or iflore ELSFIF^ 
«X lowed) 



ELSE tOf 



fiKOIFl 



is lege! v/ith the obvious iiieanlng, Anv seouence of 
stateB'ents celanceo with respect tc IF and EKDIF nav appear 
in rieee of the dots, ct course, if may be nested, £rfiC£x 
lisfi fix iQa&nt&llQn x.& atsamXu L6casiMhm&&^ The. final flse 
wav ce cmittaa. 



Tlie construction 

FOR <foj: clause> DQ; 



is also allowed. Th« erteitrary secuence of ststerflents 
fca lanced wa,th lesiject to FOR and ENDFCR which is synteolizea 
tey the ootg is executed repeatedly under control of' tha for 
clause, whosa synta^x has three foritiss 

<naiPe>«-<exeres.sion> whILS <expressicn> 

t^hicri causes tb* value of the first e,xcr«assion to fc«?^ 
?4Ssiqneo to the naffie and tne second exrression tested fach 
titne around the loop, when the test fails (value of the 
excres.'5ion«0l reKetition stoos, Tne assignroent and test ere 
rerfortited once before the loop is executeaj 
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<na!T'a>*-<e5cpression> (.eY <expressior)>J TO 
<e}<presalcn> 

\^ith the ofcvicus rfieaninp. If the fY is omitted, an 

incref^ent cf 1 Is assumed. Repetition continues until the 

velua o£ tne name is greater than the TO expression, unless 

the latter is s negative cfiusiajitr in wrUch case it 

continues until the name is less, A , test is perforifien 
before the loop is executed for the first tlree. The sceclai 
cases 



X«'<expresslon> BY 1 TO h 



and 



I*-<eKE:ression> EY -1 TO 
ere recoonizea and com?;iied more etficiently, 
Ihe siRiilar construction 

WHILE <expreasion> do? 



mDFChf 

is alsc elloweo. The fcoay o£ the looc iB executed 
reneatedly as icng as evaluation of the expression yielos a 
true (ncnxsro) reisult. The expression is eveluated cnce 
fcefore the loot is entered for the first time. 



(.r 
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Listing vm.y te control lea witrt the stateiriants LIST end 
NCLIsl, Klther R^av fee followed fcv SOUPCE, CODE, or BHi^KY, 
and turns on or off tne specified fori of output, it ie not 
a gocci idea to turn binary output en and off, since this 
will in aenerai maauce. an unloadatele; result, 

iwo special options concerning allocation of variables 
are also contrciled ley nolist, nclist FSEE v^ill prevent 
ZiRO'g for uninitialized sce.iars frcra eppearinq on the 
asserofcly-ian^uage listincif this may be useful if re-entrant 
\a procrsffs ere desirea, NOLIST EXTERNAL will cause undeclared 
variables to fce treated as external » nor'-'aally they are 
treeted as errors and space is assiiqned fcr ther«, 

NCLIST PASS D leuts the ocisipiler into e mode where the. 
code proouced tor tailing a paaed pointer no longer assunies 
that the tlocK lies within a single cage, it is intendeo 
for prcorgins where the user is aliocatina packed storaf^e 
nitiselt without regard to page fccundaries. 

The statetrent 

IfiCLUDE "<fiile narce>"i 

has the ^.ttect ct placing tha entire contents of the nRRieci 
file in tha frogram at that coint. This process may fee 
nestaOi* i.e. the file fceinq inserted 'fpay itself contain 
U^CLUDEs, Bote that since the file is inserted verfc^atlm, 'it 
shouia net end with an END staten!.ent. The INCLUDE feeture is 
weant priPariiy for groups of progreiris with cowicon 
declarations, lo this end, the staten^ent I^OLIST IISCLUDE is 
prcvicec vJith the fcllowino effecti if it occurs in thp 
oriQinal source tile, it has no effects while if it occurs 
in an iNCLUDEd file, it terminates processino of thst file. 
Thus a n.ain prcgrsffi could have the forrc 



(declarations) 



, JJiOLIST INCLUDBj 



, frafpainder ot crocrrarr.) 
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and HinvsufcrroqraK^ could use Its declaretxons cy uchUrjtim 



The staterr^ent 

imm <niiT'e>i 

will cause tne naKe tc fcs output to DDI ss the rjrogram ners«», 
NO- more than one IDEST nay aopear in a prograsi. 



x,e. 



A t:;rc<3raffi should tee terminated fcy an End statement. 



ENDf 



1> 
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The torfflat cf a macro definition is; 

<nawe> Kdumi"Eies>).*'<def initlon>> 

where <natTie> le the narce of tne rr-ecro fcslna cleflned, 
<Q,ij»'i)iii«»,s> is the .list of duraitiy erguwent names, ana 
<deflnition> is the definition, <nftn:!e> fttust be hith€»rto 
unisentloned identifier. <dujr.fi5ies> roay fce an emptv list? if 
it is not ewtty , it is a sequence of identifiers separated 
;oy commas. These identifiars ' serve only to indicate the 
•place wlthir the cetinition where actual arguments are tc tee 
substituted: their use here does net conflict with their 
previous or sutsequent usas for any purpose. The 
<oefiniticn> is aua sequence of tokens (identifiers, 
nvjrnteers; operatcrs, character constants, or strinc 

, constants) nat— -Xacl-uanns t seroicolcn, it need not te. e. 

''^ ' leael gtatei^ent, expressiO'n, or anything else, 

A macro call Iooks almost like a, function call, i,e, 
has the forn <nan^e> (<arquwents>) j However, the <arciusient.'5> 
are net reauirea to fce legal expressions i they need only fce 
sequences of .tokens fc:a lanced with restect to parentheses, 
not ccntaining sere. ico ions, and delimited, fcy co'mns wnich e.re 
not enclcgsed in inner parentheses. 'For example, STP-ISg 
XUO), ti, and (B,C) are legal arguments. The effect of the 
macro call is tnat the oefinltion, with the actual 
arguwients, replaces the call before any further crccessino 
i.s done on the statement , h mecro call way appear anywhere 
m t..ne statement, not just wnere a. function call wculci fce 
legal, Macros itiay call other macros. If listlnq is beinc 
done, stateri'ients v-ill .ce listed LetGXX ffiacro sufcatituticns 
heve teen perforinedi tnis is also, true vhen a statement is 
listec in response to an error, 

h ^0x4 of v^arninQ for those 0ccustoff.ed to the K.;'.Fp 
rnacro facility. Since substitutions are cerformea on the 
basis of tokens rather than characters, no substitution 
occurs within character or string constantvS in the 

cief inition, , e.g, 

DECLARE I'iiiGKC Si (X)^"X" 

will net csuse a substitution. Also, concetenation is not 

avaiiafcle. Finally, eacn dummy arguff^ent has a name of itg 

ov.'n and the crcper nuwser of arguments must fce suprlied at 
each call, 

\vc exainijles of useful .mecros? 



c.^ 
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DECLASE rtACKO INC (X) f-X^-X-*-! j 

causes INC (A) to te equivalent to a^a+i, 

DECLARE rtfiCftC TWO {X) 4- (X) *2 i 

aaueas TWOtX+Y) tc fce equivalent to ii'¥-^}*2, 

the definition had keen sirapiy x*2, then TiMa{X+Y) woukrhaw' 

fceen eouivaient to x + ¥*2, which is tresurfiafciy not what 1p 

wentec. 



-lote that if 
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The fclloTAJing special functions are a etanaard cart of 
the -lan<|uaqe. They providfa all the built-in storage 
ailccatloiji, stririg handling and innut-cutput facilities. If 
fttore elaborate £aciiitie.5 are required, recourse raav tee had 
to rfi3,chin«^-language routines. The necessary lin'Reoes are 
clescri&e':^ : under tunction calls and declarations ,abov€». 



1^ — :it.Qz&s^s^Allc£&tiaQ^txmctXQB.s 

.HAftE' (<ex|:ression>) 

creates a, ^fcloc'k cf storage ot the length specified tov the 
ex?:re8Sxojti ( tut of at least two cells) and returns ?i 
pointer to this tlocx as its value, m feet, one extra cell 
is assianeo ty the .systeraj the user should Keep his hpnds 
off this «fcell vi'hich is the one fcefore the one oointed to by 
the velue:ct the BAKE function, hn alternate forro is 

^^ftKE (<e3<pression>»<array naroe>) 

whicn BssiQT)B the telock out of the specified array, which 
must havR'fceen pioperly initialized beforehand fcv a call cf 

si'iARFlY (<e3<pression>,<array ,naK!f>) i 

Only tlcckg of the sixe specified in the call of SETAFFAY 
can fee ibssianed ^ in this way. Blocks cf any isiz«? can fce 
assiqnea fcy g siicle fii^KE, 




T<3 rteieagie a fcloCK of storacief do 
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<arr8,¥ naic!e>) 



or FREE s<axg:resffiion>jf 



where the; value of the expression is a pointer to the ■clcc'k. 
The function has no iseaningtul value. The storage allocator 
will a.tt^;K|:t to coalesce treed, te locks r hut since it cannot 
move fcloi'ks arcuncS, it is pcssifcle tc fraaraent storage; 
noselesslt fcv acquiring and releasina fclooks of tnanv 
different; sizes in an indisorliilrmte nienner. If the syaterc 
runs cut (pf space^ it will cojriplaln and ault, Note that 

FiiiE«KAKE{4) ) 



gcnuires fijsna inijiiediateiy releases a telcc'k of four 
13 exactly equivalent to kup (except for tlEiinq), 
wcrKs ficT'ciruin space. 



words. It 
TMB slso 



TC ctcy one fclccK of storage into another one of ecual 

BtcFY (<e>cpression>,<excresslon>) , 

The first: expression is g nolnter to .the destination, the 
seconcj t0 the source. These ijiust fee 'pointers acauirec my 
.MAKS.: (or fearefuliy fafcricatsd) since .the length of, the fclocif 
is 'iieterjnined trois the contents of the extra, hidden vscto 
Drovioed fcy ^fiAKE, The source telocK iiu3t have teen created 
fey a MiiKt with a singie arqumant, if the source block does 
not ftave tne hicden word^ 



.BCQPY (<exs:ressicn>^<exprsssion>» 
<excression>) 

mav fce usjed, vhere the third arguffient specifies the nurr.ret 
of vox 6s tec copy. 
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The ri;aciinq facilities crovj.de a leans for the user to 


al locate ^and access a large (up to 2fl9 words) adaress 


Sf^ce, fcv jfcuffering ^larts of this address stace between cere 


and druro in fixeo-size pages. The user can specify the rege 


size, the;aitiOunt cf core space tc allocate for buftc-'rs 


t'wnich car^ fce changed dynamicelly during execution), and the 


size' of tl 


se address space j incividual raceis may be locksa 


into cor'' 


! for a time and later allowed to be swacped out 


aaaini th« 


; user's paged data nay fce divided into a nuKiber of 


cateaorie$,, which allows wore efficient allocation of srace 


fcy croucir 


\'i Objects of the sama category on thm seme paqe. 


At tfce tiise that mit is called, (see the INITIALISE 


function Im section 6), certain cell® in the runtime are 


examinee to determine the setup cf the tegina logic. The- 


nain.es of: these cells are 41l''^K<-""*^sclared gITEHNAL, I'^ne 


cell NFL <j:ontalns the cage »siz:e as a pov^ei of 2, ^'rhiah trust 


toe .oetwe* 


?.n B and ii. The cell SPS contssins the size of t.h© 


a,e sired ffl<j 


idrass space a.s a itiulticle of, 2tNPL! .the bIzb 


cannot eicoeed ^tl9. If taPQ contains a 2trc, It is assurced 


th.'st no u^© will fce ir.axe of the paQlna Icgic, and any ce.lis 


on it will prociuce arror comnients. The call MPS conteinp? 


the numjt:e|: of core fcuffers to be proviced, if it contains 


0, all livailacle space will be used for fcuffer, the cell 


Mpc contains the highest category numfcer vihich will fce u«?ed. 


The cell^ PM contains a positive nurofcer if the direct oxxm 


acceli niaij;ninerv, BSS 124-127, is tc fce used for storinc? 


paqed caia, or a . nagative nuitfcer if a Tencloir! file callea 


/SQPOATA : IB tc fce us«dj the former is scmewhat rcre 


efficienti, especially if the address space is lerge, cut the 


l8tt<3r caii fce accessed tey other prograros via the ordinary 


file niach 


Lnery whereas the former cennct. 



I tey^ other cells are of interest. The cell PCAT is 
exaRiineci Whenever a call is mede to PBAKB\ if it contiins? a 
non-^erc hyrcber, the new fclock will tee allocated on a rage 
reserveci ^ for data of tne designated category. If it 
contains b zero, the new fclock will fce allocated on soR^e 
convenlenjt cage without reference tc cateqory, A call of 
p,FiA:Ke v^ith a valid druw address as the second arcturtient ta:kes 
creeedencfe over the setting of PCAT, 



L 



h tPiiQe 'tiay fce locKed into core with 



I'" 
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L V Kf A. \ A f 

wnera x is a druc' acidress? the value is the corresponolnq 
cere eddiass, wriicb is quaranteea to reit^aln valid until the 
caqe ig urtxockeo. The funation 

UflLCCK(ll) 

wher-^ A i$ a core address, stores the corresponding aruE! 
addrass .;:|.n a ceil Galled PiDDiS: and returns the old iocK 
count CiAihich is incremented tey LCCK and decremented if 
non-zero ^fcy liiNLCCK) «s valuej it is all rioht to unlock an 
unloc'ked iuttez. The cell MOP alweys contains the numfcer of 
fcufters wfHich are net locked at the fflcwent. 



Page' ijuftera ars allocated downwarciiS (tot»;6ids 
low-nvjfflfceted acdresse.;!) froro the initial setting of a ceil 
called ESioRtij the fcottonn of the buffer area, is nut into tne 
cell aAPift'X fcy the Ii^T oi:;eraticn, l,f the user 'wante to 
reduce thk- amount of scaoe available for buffers* he mav use 
slrUTfX), 'where x is a core address in a fcuffer. The fcufter 
will fca returned to the pool ct space available to the core 
allocator; (MAKE). Tne converse opexaticn is SOETCX)/ whiah 
restores tne fc.utfer tor use ;oy the paginc, loqia, Note .that 
the fcuifer area is defined, at I'NIT tirce {as? tna NPB * 2tiN'PL 
celia iust below (ESTOSa) - atNlr-L and EPDT and BOET 'R^y only 
be useo : on address m this ranqe, IflIT alloeates space ur 
txom ■BBJO'ifiQ for tables for the Orua allocatori leaving the 
first unused cell m SIShAY, Thus SA.RRAY and ["EAI5R,ay 
bracket the core not used by the pagino logic after and 
IMt, v;hile 8STCFG ana gS'ro.HG bracket the core available to 
it before: an I Nil, 
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A sttirq Is descrifcad by a four word aascrirtor wMch 
.specifies : tne teginning ana end cf a the area assigned to 
the strin-^, the reader pointer ? ana tne writer pointer. The 
fiuncticn 

sf,TUP(<string na.roe>, <size>l 

wiil cctain a blcck sceclfiea size ana set up the descriptor 
PCintecS to fcv the string name to point to that fclock, Ihe 
na,ra,e rcust ■ already contain a nointer to a descriptor j if it 
cont.a,ins :a a runtime error will result. The alternate 

form 

St;TUP t<string n8roe>,<size>y<excression>) 

will BigKe^a descriptor v^'hich points to the sceaified nufffcer 
of: cihara<t:ters startinci with tha word pointed to by the 
expressioh» The storage allocator is not involkedi it Xb 
the prccftaRimer 's resoonsifcllity to create the descrictcr) > 
it is th€»: programETar's responsibility tc ensure that 'the 
proper air.ount cf space is in fact available, 

TC si&t the reader ana '^^riter pointers of « string, use 

S^'lt (<nePe>, <expression>, <expressicn>) , 

The l-irat: expression specifies the reader pointer, the 
seconci the \N'riter pointer I which jpust pe areaterj if it is 
not, the : reader is set eo;ual tc .the writer pointer). 
Character^ are numhered startin«i at 0, To set the reeoep 
ccinter ohlVf use 

St:TKKnarrie>,<e.xpres3ion>) , 

To set the writer pointer only, use 

3|;;T^i (<na»e>,<expression>) , 

To optain^ the lenqph o£ a strina (v;riter pointer-resder 
pointer) use 

LEKGlH(<na?fie>) , 
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Kone c£ these tynctxons except LEKC51H has a meaninqfyl 
value. 



10 q<?t the next cnaracter froai as strinc? and increir-.ent 
the rsadej pomteii use 

GCU (<nani€>) . 

If: tiiere is nc next character^ there will fee an arxor 
ac:!t!)a^nt artd a halt. To avoia this, use the alternate forw 

fiCn<naipe>s<failure Xocation>) 

(see oiscusxcn cf faiiura loGationg teelow). Thlss convention 
is also u'^ed for the next five functions, 

reads a eliaracter firoai the end of tht string and decrements 
the writer pointer, 

wtU t<exr;regsion>,<nait!e>) 

writes th«i charactar scecifiea ty the expression on th© 
strino soficifiea fcy the naaa, it fails if there is no rooffi, 

WCD Ke»Kpression>,<n3,rfte>) 

writas thi character on the front cf the strina# at tne 
location 'of the reacier rointer. and fails for th« same 
reason, tnoise functions have the character written is their 
valus. , 

i\ff t'E '^D { <naii!e> , <n«irri,e> ) 

apcencis the second string to the first one, it fails if 
there is not enough rooro, it has nc iteaninoful value. 

(1C (<nanie>) 

yields the next character of the string,- but does not 
advance the reaaer pointer. It never tails, fcut yielas jun'k 
if tne sti'inq Ib eiptv. 



C 
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the 0::iptessicn. A^-fa (where A and fi exe string nanies) 
slTfipiy scves tne oontssnts o£ H Ii:r€su»afclv a pointer to « 
e^e.Bczi'cto't) into A, To coDy the descriptor, the BCOPY 
function I'tii-rint tee used, since string descrictors are just 4 
word tloc]<:S; 

Be surs tcf read the section on BCOPY afc'cve. To , copy the 
strino, \i$n 

The effect is that cf SBTS (B,0,0) ccllcvjeci tev i^PPEf^DH, A}, 
SCOPY, ii'Ke APFE.SD. fails if there is not enouah room in 8, 



To ccjjnvsrt a string s to a numfcer, 'i.'rlte 

C $ 'K ( 3 ) • 

TO convert a nunscer i^* to a string 3, write 

CMS (,i>i * S ) « 

This converts a siqned nuRvber to its dectroel rerresentation, 
procruclng I cnlv enough aiaits to accuretely represent the 
nuroisar, ll:xtra arciurnents may be suTSplisd which ispealfy radix 
(10 assurjiSQ) and the nuitioer of characters in the strlnq 
version (-1 or tree forwat assumea). corresponoing 
operation^ tor fioating point nuifcers are 

and 

CftS{R,S) , 
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ft fl4Q is ccenea £or incut ^Ith 

I«FlLE(<etriiKi nan!e>s<faliure locatlon>), 

the strinci contains the full naro© of the fix*». Thl^ 
Eunction j requires the presence c£ a failub iQCAtHm to 
wnicn ccni|rci transfers in the case the fiunction tails. Its' 
value is the tile nuraL-srt 

oUTt ILE ( <naroe> , <ex!:ressicn> C s <£a J. lure 
AOcaticn>]} 

does tne .?affie thing for output. The ex^ressicn is the 
option woro which 38S 16 takes in thf ,ft-re<i, it will ce 
assu:.iied tdf te if not supplies^. Both of these O'reraticns 
leave in , the location FTYPE the tvxe ^*!orci returned m the 
BKS, in cise of failure, the errcr returnees tov the Bh'S is in 
location tSKtJH. 

10 actquire file naicies, use 

I^SI\,f1E(<naiae>!<£aiiure lccation>) 

and 

0ijTi«A.HE(<naMe>!<faiXure location>j 

both cf wHich collect the narp-e frow the teletyne and aa;,cjs,c.ds 
it XI! tijifi s±jii5.i3 siiftclifid* Both transfer to the giver, 
location in the event of failure, and have the ter^inetinq 
character : as value, 

CLa£.£*£i.I34ALi 

10 cio6'3 a file, ao 

CIf,CSE {<eKtressicn>| , 

The axcreision's value should be tne file nuuifcer. To cloae 
all tile^t do 
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10 T&f^G a ci'iaractar^ use 

C|.;'i i<expression>) j 

Tne value ;of the expraaslon ahQuld fee the file number;', ThivS 
function islsiicly does a CIO, Its value Is the c'narecter 
read, 'ic 'write e character # use 

COUT (<expression> [^<axpression>] ) y 

File 1 is :''asauined If not specified. This, 'function has the 
char-acter ': written as arquftient. To raa.d an^ writs a full 
word, qse:«r!:i anct WCUX in exactly the saire way. To ^rlte e 
strino, u$e 

SL|aTC<ndKie>i:,<£ile>] ) . 
TO write ciarriage returns, uae 

CS.LF(<ex.pression>[,<£ile>] I » 
The f,xr:re$siQn gcecifiss how many should fc® written, 

lo r€tao a nuinfcer# use 
IlfU<file>t,<radix>l ) , 
Decimal r4aix is assuaad. To write a nu^T^fcer,r use 

K|.u1. (<«xcr®ssion>) , 

Extra aroiiments* in orf^err ?^re the file fl ■'issuraed), the 
radix ilO assuweci) and tne nurater of characters tc ti^. 
written f-1 or tree torriit assum©6), characters are 
discsraed . frore tne le£t> the nureteer is filled out on the 
left with ,, clanks, A slcin is supplied it the nufflber is 
neqatlve, ■ ccrresconcJinQ oceraticnis for floatina rcint 
nuWcers affe 

ppu <iilii> I , KtotmBty I ) 

for Klcatinc input, and 
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RCUTf<excression>,<fiie>C,<foriBat>] ) 

for tlcatlno outcut. The forreat word is explained in R-2i: 
if it 1?? .oiitteo, it '-jIU fce taken as 2€rc, laadincf to tree 
format out cut. 
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TWO functions are providea for converting cetween 
integer ano floating point. To ccnvtrt a floatinq noint 
nufflter to 'en integer fcy truncation, use 

Fix f <exp.ression>) • 

Tc convert to an integer hy roundinq, use FIX(X+o,S), To 
convert art intocjsr to floating point* use 

PfcOATKexpression>) , 



Therct are three arguaentless special functions of 
general interest. iNVUhhlZSli) initielizes 'the QSPL storaoe 
allocator^' taking ail the space fcetween the contents of 
BSTOSG and the end cf core for itself. 

The :corapiler provlciea an mmiMlZE as the , first 
instruction of the user'sS progrtic. If the eroqram starts 
sofnewhere 'Other than at the ceginning and aces not fctcjin 
with an ; If^lTlJ^LlZEf the user nmv say CALL* iNlTjU to DDT 
teeto^e stsirting the program. Failing this, there ^sill be « 
disaster as soon as the program calls on any runtime 
feature. 



The cither two tunotions are 

tvhich hslts, ana 

'^hich aoe$ a bHS 10, The compiler generates a BBS 10 
avitornaticff liy at the end of every ffrograffi. 
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TO execute a BKS# do BP3CN,A,a,X) whieh stts up the h, 
hf and t registers and does tne BBS nim,ifcere4 H. Trallina 
8ir'iu"ients ■.■■liey be oraittecif and the adjacent cofflffles roay tee 
used if orte of the registers does net nesa to be set up, if 
the rifiS 1? expected to s'Kw, a failure location riiav tee used, 
which '5)vlii, fce used if the BKS does net sHip, The value o£ 
B'HS is tH«a contents of A when the BPS returns i the 
reqisters ' niay .ce saved by a save list as for ordinary 
tunation ctalls. 

'10 e3|ecute a $BW\ do SBmi^^rA, B, X), conventions »xs 
exactly trjie aanoe as for 'BR3, 

.Arcitrarv rrechine instructions lay be generated with 
PCPfOF# 8^ iifBfX). This vior'Ks like BRS and SBRB except that 
tha opcode is the value of 'IP, which roust fce a constant. 
Thus, i-iKs|3i»x) and P0P<S73B,31,X) axe eeuivalent. 
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?, irroqrarn la coir.pilaa, wltn fcUo's^'ing set of ttv 
actions; 

«QSPL. 

7/14/69 tthe date ot the last CSPL asspnifcXv] 

SOURCE FItE: <fiie naii3e> <tei:minating character> 

[the : terwinating chsraater is either "." - assuwe 

defeviit file for BINapy ano LlSTltiCsr or "," or "f" - 

a*»Ts::aTbo furtner file names] 
BIHP-RY ^Ihikt <fiAe na«i'a;> <terroinating character> 

iaetmlt is NOTHlMci] 
LISTI¥)G FILES <fxXe name> . [default is I^CTHIKtiJ 

2 BEQ 1 ft.«l-<S 243 CELLS ( A snl ^L tn2 (n3) , nn4f n6 , T»n6 » H ;n7) 

Tne '*n £.RR£" dees not acpear If there were no errors. 
The nur.?b4rs printed out in the compilation surrsraary have the 
followinci i 3ignif ic^jncei 

Ami, ni4!.'nfcer ot symlDOl tafcle cells rerrsaininq st end of 
cci)?-f!cilatlon, the sVi^ifcol tifcle has about 4900 cells. 
Sifwfcols take 5 cellSf constants ta'Me 4 cells, 

Itnl Twrn'ter ot literals (aonstanta) in the literal tafcle, 
Trtis includes constants actually written in the 
piCogra'ffl* tesiporaxy and final values of constant 
ejt-crassionsr 'ind otner coiiicllex*cienerated constants 
such as tisld masks, 

(n3), nu»fcer ot literals which were never referenced in an 
instruction. 

l!n4, nUiofctr ot indirect csUs generated for labels. 

n&, nU'-ifcer cf indirect cells generated for arrays and 

functions, 

Tsne, total nuritfcer o£ arithn^etic tetncorary cells 

cisnerated, 

,M:n7 siiallest amount of symbol table space encounterec at 

anv i^oint during coraailation. This numeer is s-ffialler 
tHan the "k" number cy roughly the numeer of tokens 
in the longest statement in the prograir... It is the, 
best measure of how close you »re to overf lo'^'^inc 
Qi$Pi.,;'s syibol table. 
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A sijRsysteK called QB.UH 'contains the QSPL runtime, 
whan cal-lerj, it puts the runtirce .code into raae 7, 
read-cnlv'4 and initializes the pep transfer vector in rf\oe 
0, It l*?sves IF set after its storage and converts itselt 
into l-DT. Dumps and continues iTiay be cerformed exactiv as 
thouqh it. were DDT. Tne user iTiay set up SARRAY to the first 
unused cell Gefcie callinq iwlT; otherwise, SARPAY gets set 
to lOCfc b«!!vcnd the last non-^ero word ct the program. 
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HuntiT^e Details 



A wS,i>L String oescriptor consists of foux worcKsr each 
or '^nich is a character pointer t3* word address + 0,* 1 or 

They are; 

cointei tc character before first chsracter of sr.ece 
allocat'Sd to strino, 

reader pointer for string, 

writer pointer for string, 

comtsr to Ie3t charsctssr of space allocated tc string, 
ISD areat«|s such a descriptor, BSD, RSR and R3i^ set reader 
and writfir ipainters. Characters are counted frorf 0, hcb 
reaci:;!i th«» characters between reader and writer pointer, ¥CS 
writes cfiaracters jcetween writer and ©nd cointers, l-iCP 
Reaas cnpsijacters fcetween writer and reac:^er pointers, WCB 
^-^rites GHaracters fcetween reader and teoinning pointers, h 
variafcle declared STRING must contain the addxfijsa of a 
descrictor ^hen it is usec3 in a string oreration. 



Ik vaiici druffl address hais bit 3 oft snci bit 4 on? It its 
0-2 are ■ignored and bits 5-23 cof prise the actual virtual 
addresis, 'CEA and ge:i are used to translate such aodresses 
into core ^aodrssses into cora addresses; it th« desir«ci, rage? 
is not in. core, it ia read in (vjhic'n usually involves 
writing cjjut soR-e otner page), CEAS and CEIS do the sanie, 
execpt th-it they also set a tXag associated with the buffer 
to ensure that the ^.sge, will ke rewritten on the dru.ra before 
a ne'-»? one is fcrouoht into th« teufter. 



Ccra„£.**ic«4a£^iiIj.cc.4'tioi3 

A iclcbc'k allocated by a ifijeea) array declaration or tey 

e sinql*** argun^ent call ot HAKE contains one more '^ord than 

wes renue*ted ley the user. The extra worfSir which is tne one 
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iPii^ediatelv crectdinq tna zaroth woro of tht fclock, con^-ainpi 
the icial^lenotb cf tne telocK, includine the extra word. 
The tec twc bits are usjed by the storage aUocitor; 

fcit if? en if tne teiock Is free, 

tit I is on it the next lower kIqc'k is free. 
Blocks allocatea ty a two-argument call c£ I'iake dc ,m± have 
htlsS extxn v-orci. 

An. airrey feeing used for storage allocetion (i.e. om 
set up hv SETA.f^KA'V, or tfte BhWhl axrav) .has the foHov.ana 

fcr>tii 

i6.x.d4— .~. — . — . £flc±fi.a.ta 

-1 Length + flag bits, see above 

Beaa size, or £cr ar5 array which ©Uccetep 
variafcle sized fceeas icr fclccks), 

1 loaress of routine to call when free soace is 
exhausted. This word n':8.v te set bv the 
■crograniTPer. The system does a CALL* tnrouoh it ■ 

2 Pointer to master free list (or just to tree 
list for arrays aUocating fixeo aiz© fclocKs), 

3 .Free scace to tee allocated. 

The ixee list tor a fixed fclock sl2;t arrav starts at 
the second -ivoxg cf the array, is iin'ked through the firsst 
wore cf €?tan free fcXocx, and terminates with a zero, 

ina Waster free list for a variafcle fcloc.*« size 85rr.av 
uses one; rlock for e^ch sloclt siza. Three vor6s ot this 
fciock *!re 'Usaci. 

-1 Length + flag tits, 

tsack-cainter, Ter'sinatefi. at 0th vord of 
array, 

i Pointer to si.a.ve-fee list for this fc^locK 
size, 

2 reenter to next fclock en roester free list. 

The .Ktloo'lcs en a sXav€»-free list are all of the ssme. 
size, iwtt words c£ each are use^S, 
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-i Lenqth + flag teits, 

sack cointer on slave-free list, 

1 ror^'ar'3 pointer on slave-free list, or o, 

Tne last entry on the master tree list mav toe for teloc'K 
size 2, In this case the third wcrd is not availaclQ, fcut 
it IS nct.neadea, since the master free list is sorted toy 
decreasinti fclcc'X size, and the the sroallest oossibie blccX 
j?.i2e is 2, 
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QSPL RUwTIfiE FCPS 

* cn rrnet^enic raeens that ell central registers not us«d to 
return results ere destroyed, 

+ on T^nemcnic rneang that all central registers ar@ clear'^a. 

100 CALL Function call. Tne definition is just mx>* 

0. 'inus F(A,a) compiles IDA Ajj ldb Bi 
CALL* F, 

l*:^! + N$c i>;yi^eriG to string conversion, CQ) = 

criginal inti»aer, {k) « strinq aescriction 
edcress, (b) s radix <» {t) b nusber of 
characters to write (-1 means free format), 
C.NS(,A,S) complies LOA Sj LDB alO? LDX »-l? 
K c C A , 

1*^2 + .MSy Print string starting at ;> on teletyre with 

(^ ; e*^S 34, Sot output fcV CO!r:piler, 

103 + p|g. outcut integer to file. ih\ = file number? 

(C)»CB)p(X) as for BgC. IOUT(A#FfR^G) 
compiles LDA Ff LDE Fj LD:k Gj FID A, 

104 R«SR Huntiioe error. Q (Oiat JO) is the error 

nufflteer. 

105 * RciN fteed character^ nc rooticn, (q) b strina 

oescrictor address. Heads the aharacter 
following the one sadresssd tv -the 
descrictor to A. Tne d«scrittor is net 
cftanged, GC(S) coreciies pcn s, 

106 * RCS 6ead character frciri strinq, (O) b strina 

descrictor address. Reads the character 
following the one addressed tev the 
ciescrictor into A, increments the 
oescriDtor to point to the character, skip 
if strinq is not enrctv, ciCKSsF) eoKu-iles 

107 * WCis v-^rite character {Q) cn string ih) , See 

tCS, fcut writes character frcin (3, Skip if 
/"■■ . srece l??ft in strinq,' >sCI«CirS!F) ccrociles 

i ! IDA S; ?JCa Cf BRD* F, 
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110 * RCis hea^ charactei' Jsackwarcs, 3ee ftC8, fcut 

reaas tne cnaracter which would have teen 

written fcy th«s last ms, GCD(S:F) con,pj,les 
KCE £f 6HU* F, 

^11 * ^^^•' write character oactiwards. See PCS but 

writes \Q) into the strlnci so that it will 
fce read tey a icllcwinfi KCS, wCDfCSsF) 
cciTipiies LDi Sj WCB Cf eRU* F, 

112 + R$i:i Reaset string descrictor. (Q) « strino 

oescriptor address, (A) b chsracter numfcer 
.to set read colnter to» {») « cnarecter 
nun-feer to set write pointer to, BETSi3,u, 
'^i'l compiles LUA P? LDB w» E£D S, 

11^ * '^'^■3 LeiiCjth Of f5trinq. IQ) s gttinq descriptor 
eodress, Nu^rieet c£ charecters between Rase 
and write pointers Uie, nun'fcer cf 
characters of useful infcmietion) returnea 
m A. l<-LENGfH(S) ccmpiles lng Si ST4 T, 

114 + tt!$p: Beset String read pointer. Same as "BBIj tcx 

read pointer only. SE1R{S,R) comr-iles Ith 
K» HSR S, 

115 + R3n Reset string «?rite pointer. Same as ^&« 

tor write pointer, SETHIS,^;) eorcpiles LD^ 

116 + ESC EstafcUsh string constant, (o) a$ for ISC. 

ine word after the Esc contains a character 
count, the tollowinq words the character,^ ■ 
pscKed 3/wora. The strina descriptor is 
set .to coint to this string ana control 
returns to the word foliowina t..he last woro 
at the strina, B*»hBQD" cofrilas ESC Sj 
DAT ft 4 J ASC 2,ABCC. 

117 CUh compute effective address for p-^ged cfcject,' 

(w) = druffl address, core address cf oclect 
returned in .x, A pteserv«a, B aestreved, 
Ihe vaiidity of the core address is 
guaranteed only until tne next isaged 
storage pop, use CEM if object is to fee 
iiiccUfied. A*-P,X ccsTspiles CEA Pk Wh 1,2$ 
61 A 'hf 



( 



QKFL ll^nuiii runtime Detailaappendix a4& 

^'^^ ^^'^ coffpvjte effective address, IndexecS, i$&w,^^ 

&B QEh except that (A) is adcied to (0) to 
ost druni aaaress. Use CEIS if object i& tc 

IDA 0»2j STA a, 

121 csi-^s coircute effective address for above, 3aw# 

as OEA, cut for storing Into oblact, F,x*-|i 
cCKs:iles LDA i^ j CEAS Pj STA X,2. 

122 cttis commute .effective address, indexed into 

array, PUJ<-A corppiles LDA hi LDX J> CEIE;? 

123 ROiiL Recursive caU «antry, o in&t (Q)) gives 

nyrr.,fcer of cells to allocate on stack tot 
arauirents and SAVEcl variefcles, PECUPaiVR 
imCTlQH F{X,¥), SAVE 2 ccHipiles STA 
KECl*Gli LD* 0| HCAL 3j LDA Xj STA 2,2f LD* 
Y? STii 3,3, LDA Z?.STA 4,2j LDA PECR61; STA 

124 Htlj^^'T recursive function exit, Femoves fclocK froit' 

stack and returns, 

125 Dtj,w¥ Doufcle X register. Usees fcr floating roint 

arrays. If A is a R£AL MmhUf then B^-Aill 
compiles LDX I j l.BLXf l-DP* Aj STP B. 

126 , RdUT ^eal output, iQ) , (Q*!) is the nurpber. (A) c 

iile, (8) « forffiffit, BCUTfR,.N^Q) corarllas 

l^'-' CHS convert raal tc string. (C),(0+1) is the 

nup-fcer, iA) » string descriptor address, 
(B) R torwat. CHS{f*,s,C) eompilss LDA Si 
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Reserved -wordaacpendi)? B4B 
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l<eservad words 



Hi C 


kh Pf- Hi. 


A}^^UX 


'<otr 


'Vjfl 


BIWi ^\ 


•"'i Ui 


H*-« 


n^ 


C t fl 


C'lCvV 


OlOh^l-L 


CI Or- 


CuUt 


Cdc 


CM^ 


CJ V 






FLti:U 


FM-- 


Hi, n ch 


u fnf< 


*iM"i.;^ 


hUh 


hill 


c'Air t JJ.H, 


FIEL'^ 


PIX-'i. 


N Aoi- 


H,H 


CKS 


CSB 


FIX 



FPEE 
FROM 
FSHIFT 
FUNCTION 

QCD 
9 CI 
aOTO 

IF 

IIJ^ 

INCLUDE 

IMlhE 

lOUT 

LCY 

LENGTH 

to W W -T*- 

HAKE 

P w Im X O A 

NOT 

OR 
OUTFlLfS 

FLO,iM 

SOUT 



PASED 

PPLUSH 

PMAKE 

POP 

PCY 

WhL 

RECURSIVE 

BETVm 

RSH 

SAVE 

scopy 

SETP 
se:ts 

SETUP 

30UPCH 
SOUT 

SRSTUFN 

TO 

UI^LOCK 

WCD 

WCl' 

WHSPE 

WHILE 

WIH 

WOUT 



SGS:LA,R 



/ 
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hppmdii c 
standard Bxternal symtols 

fiSTnitG First VCX6 cf storage avaiXsble to IMIT. 

Ihh^A-i Last wcrd not used for ceae buffers cr tacles 
after IMIT, 

£R»OI^ Error codes left here ty INFILE and OUTFILE, 

sstoSg Last word of storage avalie-cXe to 1m:it, 

FTYite File type left nere fcv INFILE ana CUTFILE, 

Nt.b suwter c£ core cuffers for tegins, s all 
availafcle scace, 

^^Sc Desired si^e gf arum address scaC'3!{2TNPIJ , 
NF(3<K2t (19-<NPL) , » pjagin© will not fee 
used, 

NtL Page size as power of 2, 8<isNPL<wll, 
Nyp >5uniS"er o£ unlocKec^ pages, 
Pi^DOS: Dru» address of unlocKeo caae, 

PC4X category to be used by PMAKF, » don't 

care, 

Pfi >=cs use ^!RH tor pagina lOQic, 4B7; use file 
/.^gPDATA, 4B7+.r! use file no, f. Any cf 
atcve + 2a7j! recover old state froni idle, 

SAKP^'V Address of second vord net usea for paoe 
buffers or tatoies after ISIT. 
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APPSNDIX D 
BhF Syntax of OSFL 



<exrjr> s <xwh]c> ^i'& <xwhr>)i 

<"K-^ht> » <xtoi:x> [l^HEHB <xforx>]> 

<xforx> a <xcond> ${fo« <x£orc> / WHILE <x^hllc>) > 

<xforc> a <identifier> ('« / •♦•) <xconci> ([ ', <xcona>,J 
¥hlhE <xcond> / IBY <xccnd>] TO <xcom>) f 

<:K%'hilt> a <xccnci>j 

<XQcn6> - <xor> Ur <xor> tELSE <xcoria>]]> 

<xoi|> a <xand> $ (OR .<xand>) ? 

<xa,nti> s <xnct> ^UAND / EOK) <>{nct>) j 

<xnot> = [i^CT] <xrei>y 

<xreU a <xR-cd> [|»s / \g / •> / <>« / •< / i<e) <xrnca.>]| 

<xffiod> a <x8dd> ^ifiOD <xada>)j 

<xadd> 5 <xftiJl> *(('+ / '-) <xmuX>)f. 

<Xffiva> a <KSign> a(C'* / '/ / LSH / RSK / LCY / ROY) 
<xsiqn>3? 

<xsicTn> a ['+ / '- / GOTO) <xtail,> / (KKTURS / SRETUFt*J 
<XvSgnl7>» 

<xeqrl7> « C<xcr> '» <xor> ', <xcr> / <xor> ', <xcr> / <xor>1 
iFFCli <xtaii>J f 

<xfct> ■ <xteil> t'( <xfcn> ')]j 

<x£cil,> « [<expr> s(', <axpr>)3 [M [<iailyre>] ['{ 
L<idenrlf,ter>:i $(', [<icentif ier>3 ) ] ? 

<f:ailure> a <identif J,er> / {RETUS« / SFeTURN) C<xor>J i 

<xtaii> 9 <xref> $(('. / '$) <gfxeia>) ,|:<x3iitos>] ['*• <xcr>] ? 

<xre|> » $('$) [•«] <xprint> <xsufcs>t 



-~r 



<ysufc$> s $i I [ <excr ' ] ) i 

<Kprirp> s '( <expr> ') / <isc> / <y.Bf.> / <ic.er!tl£er> / 
<ccnstant>f 

<lac> « '" §<i:scn> '" p 

<.ssch> B '&• (i& / I ' / M. / <ietter> / <octal> <octal> 

<octal>) / <otherchar>i 

<constant> a <ccta.l> ^i<octal> B t<aiqlt>] / <diqit> $<aicit,> |d 
t<oigit>;n / <charcon>]f 

<ident4tes> « <l«;tter;> S(<letter> / <diQlt>) ; 

<cnarcori> » •• <-escn> [<Dsch> t:<p3Cfi>]] •'? 

<CCta.i> ato/ii/i2/'3/i4/i5/t6/»7^ 

<Oi«l'l+> 3 <0Ct3i> / '8 / '9| 
<.lette5> !s 'is / ... / (Z, 
C I <oth9!rchaB> a <8riV character other than 'iii •', or '">> 

<.stat> 3 (DECLAHE <xaec> /^SEC^RSIVE <fundticn> <xfcr> / 
1 jarj<tunction> <xs:dn> / LIST <Ustot;> / i;>iOLXST 
<nolistop> / END / IDENT <ioentifier> / FDi^ 
<Kforc> DC / WHILE <XWhiXc> DO / ELSE DO / 
Ei^DIr / IKCLUDE <isc> / <expr>) '? / ['$3 
<identx,fier> ' s f 

<f unction > a FDIvCTICn / enthy? 

<UstOl3> a SCUFCE / BINARY f CODE? 

■<noiiStCR> s <iistOp> / FKES / EXTERI^AL / LOCAL / PAUSD / 
If^CLUDfii 

<xt:drs> = <tdec> i', LI>3K <addr>J ? 

<x£d3i'> 3 <fcec> I', SAVE <Vfcl.lSt>]! 

<.fdect;> 3 [tg] <a.(Santifier> M l<vclii5t>j ')i 

<vfcllstt:> a <9rv»j;a> i? ( S <?ir-wf'a>)| 

^- <i6ent.ifier>!! 

<tcl<ert> a <isc> / <identi,f ier> / <constant> / <proark>f 
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Bi<F svntaxappenaix aso 



<%,mnTk> = <©nv ctj "^@& ()* + ,-. s<=>® []«•"> j 

<xmo> = <ioentitier> ['( l<identi£ler> ${*, <identifier>) 
' .) ] •*' s<tokan>? 

<fi'3lQdee> a <ioentitier> M <icon> ['s <icon> ', <icon>] '); 

<paradec> « ['$J <identifler> '♦« <lcor,>i 

<icor?.> a <e>cr;r which evaluates to a constant>j 
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^, S 



ternary, 8 
unarv, ^'^ 



S*. r 3 



(function calls) , 6 
■ *,. b 

binary f $ 
+ r 

una.iVf S 

"" f 

'c X n 6, 1' V f 5 

" r 

unqrv, 3 
, (tqiiing), 7 
/, e 



9, 8 

AMD, 5 
AFPEMC, 31 

BCOPy, 27, 32 
SKS, 37 

Cll^J, 34 

CLOSaLL, 33 
CLOSS, 33 
CInS, 32 
•CCUT, 34 

CJ^LF, 34 

;•*( r : Q '1 '^ 

\^ A Q , ^3 -iS 



C & t'J , 3 «,! 
CSP, 32 

DC, b 

E'Cft, 5 
ERROR, 33 
EXIT, 36 

FIX, 36 
FXOATi 3 6 
FOR, 

construct, 20 
ccerator, 3 

FKEE, 26 

FTYFE, 33 

G C , 31 
GCD, 31 
GCI, 31 
SCTO, 5 

HALl, 36 

IF, 

construct, 20 
ocereteir, 3 

1 1 Iv , 34 

INriLK, 33 

l!^rriAL12.P, 36 

ICU-r, 34 

LCYi 5 
LENSTH, 30 
LOCK, 28 

L S H , 5 

li CD, S 

KCT, 5 

OS, 4 

U T FILE, 33 

OUTaAKE, 33 

P¥iAlif, 26 
PCP, 37 
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RCY, 5 
R I N , 34 

SB,S«, 37 
SCOFY, ■ 32 

BETP, 30 
fcsfi io # 3 Q 

SETUP, 30 
Sl-lw, 30 
SQUT, 34 

U1^.L0GK, 28 

WCI, 31 

H h E Ft E ; 3 
WHILgf 3 

WHILS construct, 20 

W 1 1:3 , 3 4 

[3 (sircsctiptinci) , 8 



aodition ccerstor, 5 
apcftao.lx 'ht appendix A40 
aeisiqnitienti cceratcr, 4 

teranch op^ratcr, 5 

char?^cter constant s, 9 
compiler/ 38 

constant expressions, XI 
control, staterrients, 20, 

FOR, 20 

II', 2 

nhll't, ZQ 
cycle openators, 5 

aeciaratlons, 12, 
equivalence, Ifc 
field, 15 
initialiixed, 14 
caged, 13 
parsu'eter, 15 
strino, 13 



syrtifccls, IS 
dlvisicn cperator, 5 

equal relation, 5 
eouivalence 

declarations, 16 
expressions, 3 

field, 

declarations, 15 
fields, 

word operator, 8 
tile-rsaroing functions, 33 
ril€js, 

C L S E , 33 

EHHQF, 33 

FTYPE, 3 3 

li^FILE, 33 

l^^A'tm, 33 

0U1FILE. 33 

OUTSii'iE, 33 
tloating roint nurpfcers, 19 
functions, 16, 

EXIT, 36 

HALT, 36 

1.UTIALIZE, 36 

calls, 6 

cietinition, 16 

tile-naffing, 33 

racursive, 17 

return operstor, 3 

scecial, 26 

greater than eoual 

relation, 5 
greater than relation, 5 

indirecticn operator, 8 
input/outtut, 

CIM, 34 

CGUT, 34 

CRLF, 34 

UK, 34 

I OUT, 34 

HIM, 34 

BOUT, '34 

SQlIT, 34 

WXh, 34 

VOUT, 34 



QSPL ^anua, 



Indexsa 



aec.is.XB,tXcr), 18 
left, cyclf operatcr* b 
iPift ehift operator # 5 
less than «aiial relation, S 
less tnan .relation, 5 
loqical ma, 5 
Xoaicel exclusive or, 5 
icgicai not, 5 
loqical ox, 4 

■ iTiacro .taciXitVf 34 
iBultiplication ceerator, 5 

not eoual .relation, b 
numbars, 

as rrimaries, S 

to strlncis, 32 



■^8, 



r^ainu t»^(tiiltv» ^' 

PC',1, P8 

declaraticns, 13 
para.Tieter^;, IS 

character constants, 9 
constant excressions, U 
n 6. ffl ^ s , 9 
nu'nfcers, 9 
reacirvecl vords, 9 
strino constants, 10 

rcml nucibejrs, 19 
recursive .functions, 17 
reference operator, a 
relations, 5 
remainder cperatcr, S 
reserved wor^js, 

as primaries, 9 
riqht cycle operator, 5 
right shtfit operator, 5 
runtime, a.ppendi3< A39 



/ 

V 



runtiroe 

details, ap':!en.dix A4C 

shift operators, 5 
statenientg, 

ffiiscellfnecue, 22 
storage allocation, 

BCCPY, 57 

rSEE, 26 

H.ftKE, 26 

PMi^KE, 56 

string/nut:ber 

conversion, .32 
strinqs, 

APPESE, 31 

BCCPY, 32 

CH& f 32 

CkS, 32 

CSlS, 3S: 

C3P, 32 

C3 C , 31 

GGD, 31 

GCI, 31 

.LENQTH, 30 

SCCI-'Y , 32 

SETR, 30 

&£TS, 30 

SgTUP, 30 

S.r:1W, 3r. 

WCD, 31 

VCl, 31 

constants as 
crircsries, lo 

declarations, 13 

moving, 32 

strina de®crit,tors, 30 

to nuffifcers, 32 
string cieserlt;.tors, 30 
string handlino 

functions, 30 
string rooving, 32 
sufcscriptlnQ, e 
syfctracticn operetor, & 
successlv.s» evaluation, 3 
symbol declarations, 18 

talUno, 7 

unary oi;cretors, S 



